home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppyshop 2
/
Floppyshop - 2.zip
/
Floppyshop - 2.iso
/
art&graf.ix
/
art-3488
/
macros
/
democer.aim
< prev
next >
Wrap
Text File
|
1990-10-13
|
580b
|
22 lines
read cermet,a * read cermet image
copy a,b * copy to b
don,3 * lowest bitplne display
thr b,b,1 * threshold
inv * invert bitplane
bcop 1,3 * copy bitplane
ero 8 * erode 8
dil 8 * dilate 8
bcop 3,1 * original
dil 8,1,6,1,b * dilate 8
ero 8,1,6,1,b * erode 8
bcop 3,1 * copy bitplane
inv * invert
-skel 100 * skeleton
dil 1 * dilate (for display)
inv * invert
label b,c,1 * label the regions
don 4 * give color labels
gdisp,c * display bitplanes
don 1